home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
db2ios.arc
/
PRINT.INV
< prev
next >
Wrap
Text File
|
1983-01-04
|
2KB
|
54 lines
* PRINT.INV
* prints inventory of volume
IF change1 = t
STORE 'Yes' TO mchange1
ELSE
STORE ' No' TO mchange1
ENDIF change1
IF change2 = t
STORE 'Yes' TO mchange2
ELSE
STORE ' No' TO mchange2
ENDIF change2
SET FORMAT TO PRINT
EJECT
@ 3,26 SAY "SIG-M VOLUME"
@ 3,39 SAY disk
@ 5,14 SAY "Opening Inventory"
@ 5,33 SAY open:inv
@ 5,46 SAY "Description of Volume"
@ 7,19 SAY "Back Ordered"
@ 7,33 SAY back:ord
@ 7,46 SAY line1
@ 8,15 SAY "Waiting Shipment"
@ 8,33 SAY wait:ship
@ 8,46 SAY line2
@ 9,14 SAY "Quantity Received"
@ 9,33 SAY recvd
@ 10,14 SAY "Closing Inventory"
@ 10,33 SAY STR(open:inv-back:ord-wait:ship+recvd,3,0)
@ 10,45 SAY "Change in Inventory"
@ 10,70 SAY mchange1
@ 11,46 SAY "Date"
@ 11,53 SAY daych1
@ 11,64 SAY "No: "
@ 11,70 SAY ship
@ 12,19 SAY "Normal Stock"
@ 12,33 SAY norm:stk
@ 13,14 SAY "Quantity to Order"
@ 13,33 SAY order
@ 13,45 SAY "Change in Backorders"
@ 13,70 SAY mchange2
@ 14,15 SAY "Quantity Ordered"
@ 14,33 SAY pend
@ 14,46 SAY "Date"
@ 14,53 SAY daych2
@ 14,64 SAY "No: "
@ 14,70 SAY backship
@ 16,10 SAY "Anticipated Inventory"
@ 16,33 SAY STR(open:inv-back:ord-wait:ship+recvd+pend,3,0)
@ 17,51 SAY "Update:"
@ 17,59 SAY dayu
@ 52,00 SAY ' '
SET FORMAT TO SCREEN